In [ ]:

    

#PUBLICAS
setwd("~/TCC/Working/Nov2016")
enem <- read.csv2("[2]enem14--Publica--v1--15-11-2016.csv")
escolas <- read.csv2("[2]escolas--publicas--v1--20-11-2016.csv")
colnames(escolas)[2] <- "munescolas"

#ENEM + escolas
selescolas <- enem$dfEnem[match(escolas$munescolas, enem$dfEnem)]
escolas <- subset(escolas, escolas$munescolas==selescolas)
selfinal <- escolas$munescolas[match(enem$dfEnem, escolas$munescolas)]
enem <- subset(enem, enem$dfEnem==selfinal)
enem[, 32:120] <- escolas

write.csv2(enem, "[3.a]enem_escolas--Publica--v1--22-11-2016.csv")


    

In [ ]:

    

#PRIVADAS----
setwd("~/TCC/Working/Nov2016")
enem <- read.csv2("[2]enem14--Privada--v1--15-11-2016.csv")
escolas <- read.csv2("[2]escolas--particular--v1--20-11-2016.csv")
colnames(escolas)[2] <- "munescolas"

#ENEM + escolas
selescolas <- enem$dfEnem[match(escolas$munescolas, enem$dfEnem)]
escolas <- subset(escolas, escolas$munescolas==selescolas)
selfinal <- escolas$munescolas[match(enem$dfEnem, escolas$munescolas)]
enem <- subset(enem, enem$dfEnem==selfinal)
enem[, 32:120] <- escolas

write.csv2(enem, "[3.a]enem_escolas--Particular--v1--22-11-2016.csv")